home *** CD-ROM | disk | FTP | other *** search
/ Cerilica Vantage Pre-Release / Cerilica Vantage Pre-Release - Disc 2.iso / vantag.arc / !Vantage_PS_epsSprites < prev    next >
Encoding:
Text File  |  2001-07-06  |  4.5 KB  |  171 lines
  1. %%BeginResource: procset Cerilica_VantageSprites 0.93 0
  2. %%Title: (Vantage Sprite Procedures)
  3. %%Version: 0.93 0
  4. %%CreationDate: (01/4/16) ()        % (16-Apr-2001)
  5. %%Copyright: ((C) 2001 Cerilica All Rights Reserved)
  6. %%Author: (Simon Birtwistle)
  7. userdict /Vantage_Sprites 50 dict dup begin put
  8.  
  9. /bd{bind def}bind def
  10. /initialize{Vantage_Sprites begin}bd
  11. /terminate{currentdict Vantage_Sprites eq{end}if}bd
  12. /version{0.93}bd
  13.  
  14. /_pal 1024 string def
  15. /_bpp 0 def
  16. /_width 0 def
  17. /_height 0 def
  18. /_line 0 def
  19. /_byte 0 def
  20. /_left 0 def
  21. /_bitmask 0 def
  22. /ink -2 def        % -2=Grey, -1=Colour, 0=Spot sep, 1=C, 2=M, 3=Y, 4=K
  23.  
  24. /hs{currentfile exch string readhexstring pop}bd
  25. /bs{currentfile exch string readstring pop}bd
  26. /js{currentfile 1 dict /DCTDecode filter exch string readstring pop}bd
  27. /pe{_pal exch 4 mul 4 getinterval}bd
  28.  
  29. /cyan{1 0 0 0}bd
  30. /magenta{0 1 0 0}bd
  31. /yellow{0 0 1 0}bd
  32. /black{0 0 0 1}bd
  33. /none{0 0 0 0}bd
  34.  
  35. /iseq{
  36.  5 4 roll eq 7 1 roll
  37.  4 3 roll eq 5 1 roll
  38.  3 2 roll eq 3 1 roll
  39.  eq and and and
  40. }bd
  41. /setcmykcolor where{pop
  42.   /ink -1 store
  43.   /is{setcmykcolor currentgray 1 exch sub}bd
  44.   /ink?{/ink -1 store
  45.    cyan is magenta is yellow is black is
  46.    4 copy none iseq{/ink 0 store}if
  47.    4 copy cyan iseq{/ink 1 store}if
  48.    4 copy magenta iseq{/ink 2 store}if
  49.    4 copy yellow iseq{/ink 3 store}if
  50.    black iseq{/ink 4 store}if
  51.   }bd
  52. }{
  53.   /setcmykcolor{
  54.     3{dup 3 1 roll add 1 exch sub 4 1 roll}repeat pop
  55.     setrgbcolor
  56.   }bd
  57.   /ink?{/ink -2 store}bd
  58.   /ink -2 store
  59. }ifelse
  60.  
  61. /spritepalette{
  62.  1 sub 0 exch 1 exch {_pal exch 4 mul 4 hs putinterval}for
  63. }bd
  64.  
  65. /concatproc{
  66.   [3 2 roll {}forall counttomark 2 add dup 1 sub roll {}forall] cvx
  67. }bd
  68.  
  69. /do{ink?
  70.  ink -2 eq{
  71.    {dup length 4 div 1 sub 0 1 3 2 roll{4 mul 1
  72.      3 copy pop get 255 div .733 mul 1 exch sub mul
  73.      3 copy pop 1 add get 255 div .8 mul 1 exch sub mul
  74.      3 copy pop 2 add get 255 div .477 mul 1 exch sub mul
  75.      3 copy pop 3 add get 255 div 1 exch sub mul %1 exch sub
  76.      255 mul cvi 2 index 3 2 roll 4 div 3 2 roll put
  77.     }for dup length 4 div 0 exch getinterval} concatproc image
  78.  }if
  79.  ink -1 eq{false 4 colorimage}if
  80.  ink 0 eq{
  81.    {length 4 div dup string exch 1 sub
  82.     0 1 3 2 roll{1 index exch 0 put}for} concatproc image
  83.  }if
  84.  ink 0 gt{
  85.    {dup length 4 div 1 sub 0 1 3 2 roll{
  86.      dup 4 mul ink add 1 sub
  87.      2 index exch get 255 exch sub
  88.      2 index 3 1 roll put
  89.     }for dup length 4 div 0 exch getinterval} concatproc image
  90.  }if
  91. }def
  92.  
  93. /ss{
  94.   /_height exch store /_width exch store
  95.   _width _height 8
  96.   [_width 0 0 0 _height sub 0 _height]
  97. }bd
  98. /sprite{
  99.   /_bpp exch store ss
  100.   /_left 0 store
  101.   /_line _width store
  102.   /_bitmask 1 _bpp bitshift 1 sub store
  103.   { _left 0 eq{
  104.       /_byte 1 hs 0 get store /_left 8 store
  105.     }if
  106.     _byte _bitmask and pe
  107.     /_byte _byte 0 _bpp sub bitshift store
  108.     /_left _left _bpp sub store
  109.     /_line _line 1 sub dup 0 eq{
  110.       pop _width
  111.       dup _bpp mul _left sub 31 and
  112.       dup 0 gt{32 exch sub 8 idiv hs}if pop
  113.       /_left 0 store
  114.     }if store
  115.   }
  116.   do
  117. }bd
  118. /spriteb{
  119.   /_bpp exch store ss
  120.   /_left 0 store
  121.   /_line _width store
  122.   /_bitmask 1 _bpp bitshift 1 sub store
  123.   { _left 0 eq{
  124.       /_byte 1 bs 0 get store /_left 8 store
  125.     }if
  126.     _byte _bitmask and pe
  127.     /_byte _byte 0 _bpp sub bitshift store
  128.     /_left _left _bpp sub store
  129.     /_line _line 1 sub dup 0 eq{
  130.       pop _width
  131.       dup _bpp mul _left sub 31 and
  132.       dup 0 gt{32 exch sub 8 idiv bs}if pop
  133.      /_left 0 def
  134.     }if store
  135.   }
  136.   do
  137. }bd
  138. /beginsprite{
  139.  gsave
  140.  4 index sub exch 5 index sub exch 4 2 roll
  141.  4 index sub exch 5 index sub exch 6 4 roll
  142.  [ 7 1 roll ] concat
  143. }bd
  144. /sprite1{1 sprite}bd
  145. /sprite2{2 sprite}bd
  146. /sprite4{4 sprite}bd
  147. /sprite1b{1 spriteb}bd
  148. /sprite2b{2 spriteb}bd
  149. /sprite4b{4 spriteb}bd
  150. /sprite8{ss /_line _width dup 3 and dup 0 ne{sub 4}if add store{
  151.  currentfile _line string readhexstring pop _width 4 mul string
  152.  0 1 _width 1 sub{1 index exch dup 4 mul exch _pal 5 index 3 2 roll
  153.  get 4 mul 4 getinterval putinterval}for exch pop}do
  154. }bd
  155. /sprite8b{ss /_line _width dup 3 and dup 0 ne{sub 4}if add store{
  156.  currentfile _line string readstring pop _width 4 mul string
  157.  0 1 _width 1 sub{1 index exch dup 4 mul exch _pal 5 index 3 2 roll
  158.  get 4 mul 4 getinterval putinterval}for exch pop}do
  159. }bd
  160. /jpeg8{ss /DeviceRGB setcolorspace {_width js} image}bd
  161. /sprite24{ss {_width 6 mul hs} false 3 colorimage}bd
  162. /sprite24b{ss {_width 3 mul bs} false 3 colorimage}bd
  163. /jpeg24{ss {_width 3 mul js} false 3 colorimage}bd
  164. /sprite32{ss {_width 8 mul hs} do}bd
  165. /sprite32b{ss {_width 4 mul bs} do}bd
  166. /jpeg32{ss {_width 4 mul js} do}bd
  167. /endsprite{grestore}bd
  168.  
  169. end
  170. %%EndResource
  171.